home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / examples / demo / demosrc / demo.pro < prev    next >
Text File  |  1997-07-08  |  41KB  |  1,256 lines
  1. ;$Id: demo.pro,v 1.65 1997/04/28 21:10:45 alan Exp $
  2. ;
  3. ;  Copyright (c) 1997, Research Systems, Inc. All rights reserved.
  4. ;       Unauthorized reproduction prohibited.
  5. ;
  6. ;+
  7. ;  FILE:
  8. ;       demo.pro
  9. ;
  10. ;  CALLING SEQUENCE: demo
  11. ;
  12. ;  PURPOSE:
  13. ;       Main demo shell.
  14. ;
  15. ;  MAJOR TOPICS: All topics in IDL 5.0.
  16. ;
  17. ;  CATEGORY:
  18. ;       IDL 5.0
  19. ;
  20. ;  INTERNAL FUNCTIONS and PROCEDURES:
  21. ;
  22. ;  EXTERNAL FUNCTIONS, PROCEDURES, and FILES:
  23. ;       pro gettips           -  Read the tip file
  24. ;       pro widtips           -  Create the tip widgets
  25. ;       pro sizetips          -  Size the tip widgets
  26. ;
  27. ;  REFERENCE: IDL Reference Guide, IDL User's Guide
  28. ;
  29. ;  NAMED STRUCTURES:
  30. ;       none.
  31. ;
  32. ;  COMMON BLOCS:
  33. ;       none.
  34. ;
  35. ;  MODIFICATION HISTORY:
  36. ;       3/97,    ACY   - Modified
  37. ;-
  38. ;----------------------------------------------------------------------------
  39. ;
  40. ;  Purpose:  Display a message.
  41. ;
  42. function temp_msg, $
  43.     string        ; IN: message string
  44.  
  45.     message = ["Not yet implemented..."," ", $
  46.          "When implemented, will go to", "   " + string]
  47.     temp = DIALOG_MESSAGE ( message )
  48. end
  49.  
  50.  
  51. pro timer, text, t0             ;Print times & update current time
  52. t1 = systime(1)
  53. print, text, ' ', t1 - t0
  54. t0 = t1
  55. end
  56.  
  57. pro DoAScreen, Index, lun, hdr, Image, R, G, B
  58. ; Writes an image to the gif file, and saves its color table in the
  59. ; header structure.  We assume that images may have a maximum of 128
  60. ; colors. 
  61.  
  62. m = max(image)
  63. if m gt 127 then begin
  64.     print, 'Image ', index,' is out of range, reducing'
  65.     reduce_colors, Image, v
  66.     if n_elements(v) lt 128 then v = [v, bytarr(128 - n_elements(v))]
  67.     r = r(v)
  68.     g = g(v)
  69.     b = b(v)
  70. endif
  71.  
  72. point_lun, -lun, position       ;Get & save current position
  73. hdr[index].start = position
  74. hdr[index].dims = (size(image))(1:2)
  75. for j=0, (n_elements(r) < 128)-1 do begin
  76.     hdr[index].colortb[j] = r[j]
  77.     hdr[index].colortb[j+128] = g[j]
  78.     hdr[index].colortb[j+256] = b[j]
  79. endfor
  80. ENCODE_GIF, lun, Image
  81. print, index, position, m
  82. end
  83.  
  84.  
  85.  
  86. ;----------------------------------------------------------------------------
  87. ;
  88. ;  Purpose:  Create the gif file from the .sav file
  89. ;
  90. pro WriteDemoscreen
  91.  
  92. t0 = systime(1)
  93. restore, filepath('screens.sav', SUBDIR=['examples','demo','demodata'])
  94. timer, 'ReadImages/restore', t0
  95. lun = 0
  96.  
  97. nimages = long(15)
  98.  
  99. openw, lun, 'screens.gif', /get_lun
  100. header = replicate({ Start: 0L, dims: lonarr(2), $
  101.                      colortb: bytarr(128*3)}, nimages)
  102. writeu, lun, nimages, header
  103.  
  104. DoAScreen, 0,  lun, header, mainScreen, MainR, MainG, MainB
  105. DoAScreen, 1,  lun, header, analysisScreen, analysisR, analysisG, analysisB
  106. DoAScreen, 2,  lun, header, appdevScreen, appdevR,appdevG,appdevB
  107. DoAScreen, 3,  lun, header, callrsiScreen, callrsiR,callrsiG,callrsiB
  108. DoAScreen, 4,  lun, header, earthScreen, earthR,earthG,earthB
  109. DoAScreen, 5,  lun, header, engineerScreen, engineerR,engineerG,engineerB
  110. DoAScreen, 6,  lun, header, medicalScreen, medicalR,medicalG,medicalB
  111. DoAScreen, 7,  lun, header, rsiprodScreen, rsiprodR,rsiprodG,rsiprodB
  112. DoAScreen, 8,  lun, header, spaceScreen, spaceR,spaceG,spaceB
  113. DoAScreen, 9,  lun, header, vizScreen, vizR,vizG,vizB
  114. DoAScreen, 10, lun, header, enviScreen,enviR,enviG,enviB
  115. DoAScreen, 11, lun, header, vhScreen,vhR,vhG,vhB
  116. DoAScreen, 12, lun, header, dataminerScreen,dataminerR,dataminerG,dataminerB
  117. DoAScreen, 13, lun, header, insightScreen,insightR,insightG,insightB
  118.  
  119. ; Save the initial splash scren as the last image...
  120. READ_GIF, filepath("splash.gif", $
  121.                    SUBDIR=['examples','demo','demodata']), $
  122.   splashImg, splashR, splashG, splashB
  123. DoAScreen, 14, lun, header, splashImg, splashR, splashG, splashB
  124.  
  125. point_lun, lun, 0
  126. byteorder, nimages, /HTONL
  127. tmp = header.start
  128. byteorder, tmp, /HTONL
  129. header.start = tmp
  130. writeu, lun, nimages, header
  131. free_lun, lun
  132. end
  133.  
  134. Function OpenDemoscreens, Name, Header
  135. ; Open the Demo screens file and read the header, If OK return 1,
  136. ; otherwise negative error code.
  137.  
  138. openr, lun, name, /GET_LUN, ERROR=i ;Open up the file containing screens
  139. if i lt 0 then begin
  140.     j = DIALOG_MESSAGE(["Can't read the demo screen file", Name], /ERROR)
  141.     return, i
  142. endif
  143.  
  144. nimages = 0L
  145. readu, lun, nimages             ;Read # of images
  146. byteorder, nimages, /NTOHL      ;Correct byteorder
  147.  
  148. tmp = replicate({ Start: 0L, $  ;Read file header
  149.                   dims: lonarr(2), $
  150.                   colortb: bytarr(128,3)$
  151.                 }, nimages)
  152. readu, lun, tmp
  153.  
  154. t = tmp.start                   ;Correct for byte ordering
  155. byteorder, t, /NTOHL
  156. tmp.start = t
  157.  
  158. t = tmp.dims
  159. byteorder, t, /NTOHL
  160. tmp.dims = t
  161.  
  162. header = { lun : lun, $         ;Combine
  163.            count: 0L, $
  164.            start: tmp.start, $
  165.            dims: tmp.dims, $
  166.            colortb: tmp.colortb, $
  167.            cache: ptrarr(nimages), $
  168.            time: lonarr(nimages)}
  169. return, 1
  170. end
  171.  
  172.  
  173. Function PReadDemoScreen, Index, Header, Colortable, NO_CACHE=no_cache, $
  174.                          DEBUG = debug
  175. ; Return a pointer to an image for screen number Index.
  176. ; Return colortable in Colortable
  177. ; 
  178.  
  179. Null = ptr_new()
  180. Nkeep = 3                       ;# of images to keep in cache
  181. Header.count = Header.count + 1 ;Keep track of time
  182.  
  183. if Header.cache(Index) ne Null then begin ;Already there?
  184.     Result = Header.cache(Index)
  185. ;    if keyword_set(debug) then print,'cached ', Index
  186. endif else begin
  187.     in = where(header.cache ne Null, count)
  188.     if count ge Nkeep then begin ;Must get rid of an image
  189.         junk = min(header.time(in), Toss);Find image that been in the longest
  190.         toss = in(toss)
  191. ;        if keyword_set(debug) then print, 'Removed ', toss
  192.         ptr_free, Header.cache(toss)
  193.         Header.cache(toss) = Null
  194.     endif
  195.     lun = Header.Lun
  196.     point_lun, lun, Header.start[index] ;Start of image in file
  197.     image = bytarr(Header.dims[0,index], Header.dims[1,index], $ ;Array to Read
  198.                    /NOZERO)
  199.     DECODE_GIF, lun, Image
  200.     result = ptr_new(Image, /NO_COPY)
  201.     if keyword_set(no_cache) eq 0 then Header.cache(Index) = result
  202. ;    if keyword_set(debug) then print, 'Read ', index
  203. endelse
  204.  
  205. Header.time[Index] = Header.count
  206. Colortable = Reform(Header.colortb(*,*,Index))
  207. Return, Result                  ;Return the pointer to the image
  208. end
  209.  
  210.  
  211. ;----------------------------------------------------------------------------
  212. ;
  213. ;  Purpose:  Set up the splash screens.
  214. ;
  215. pro demoSplashStart, $
  216.     fullScrXsize, $   ; IN: X monitor size
  217.     fullScrYsize, $   ; IN: Y monitor size
  218.     splashImage, $    ; IN: Image to display
  219.     splashColors, $   ; IN: Colortable for image
  220.     splashBase, $     ; OUT: Splash base ID
  221.     startSplash       ; OUT: Starting time
  222.  
  223. s = size(splashImage)
  224. nx = s(1)
  225. ny = s(2)
  226. splashXoffset = (fullScrXsize-nx)/2
  227. splashYoffset = (fullScrYsize-ny)/2
  228. splashBase = WIDGET_BASE ( tlb_frame_attr=31, $
  229.                            xoffset=splashXoffset, yoffset=splashYoffset )
  230. splashDraw = widget_draw ( splashBase, xsize=nx, ysize=ny )
  231. WIDGET_CONTROL, splashBase, map=0
  232. WIDGET_CONTROL, splashBase, /realize
  233. TVLCT, SplashColors
  234. WIDGET_CONTROL, splashDraw, GET_VALUE=splashDrawID
  235. WSET, splashDrawID
  236. TV, splashImage
  237. splashImage = 0                 ;Don't need it anymore
  238. WIDGET_CONTROL, splashBase, map=1
  239.  
  240. startSplash = systime ( 1 )
  241. end
  242.  
  243. ;----------------------------------------------------------------------------
  244. ;
  245. ;  Purpose:  End the display of the splash screen
  246. ;
  247. pro demoSplashEnd, $
  248.     startSplash, $   ; IN: Starting time
  249.     splashBase, $    ; IN: Splash base ID
  250.     debug            ; IN: Debug mode 1=on, 0= off
  251.  
  252.     ;  End the display of the splash screen
  253.     ;
  254.     endSplash = systime ( 1 )
  255.     deltaSplash = endSplash - startSplash
  256.     if ( debug eq 1 ) then begin
  257.         print, " Elapsed time for splash screen =====", deltaSplash
  258.     end
  259.     ; while ( deltaSplash le 4.0 ) do begin
  260.         ; print, 'In wait loop ...'
  261.         ; wait, 0.25
  262.         ; deltaSplash = systime ( 1 ) - endSplash
  263.     ; endwhile
  264.     WIDGET_CONTROL, splashBase, /destroy
  265.  
  266.     ;if ( debug eq 1 ) then begin
  267.         ;print, " Total elapsed time for splash screen ", deltaSplash
  268.     ;end
  269.  
  270. end
  271.  
  272. ;----------------------------------------------------------------------------
  273. ;
  274. ;  Purpose:  Reset the system variables.
  275. ;
  276. pro idl_demo_reset
  277.  
  278.     Set_Shading, LIGHT=[0.0, 0.0, 1.0], /REJECT, /GOURAUD, $
  279.         VALUES=[0, (!D.N_Colors-1L)]
  280.  
  281.     T3d, /RESET
  282.     !P.T3d = 0
  283.     !P.Position = [0.0, 0.0, 0.0, 0.0]
  284.     !P.Clip = [0L, 0L, (!D.X_Size-1L), (!D.Y_Size-1L), 0L, 0L]
  285.     !P.Region = [0.0, 0.0, 0.0, 0.0]
  286.     !P.Background = 0L
  287.     !P.Charsize = 8.0 / Float(!D.X_Ch_Size)
  288.     !P.Charthick = 0.0
  289.     !P.Color = !D.N_Colors - 1L
  290.     !P.Font = (-1L)
  291.     !P.Linestyle = 0L
  292.     !P.Multi = [0L, 0L, 0L, 0L, 0L]
  293.     !P.Noclip = 0L
  294.     !P.Noerase = 0L
  295.     !P.Nsum = 0L
  296.     !P.Psym = 0L
  297.     !P.Subtitle = ''
  298.     !P.Symsize = 0.0
  299.     !P.Thick = 0.0
  300.     !P.Title = ''
  301.     !P.Ticklen = 0.02
  302.     !P.Channel = 0
  303.  
  304.     !X.S = [0.0, 1.0]
  305.     !X.Style = 0L
  306.     !X.Range = 0
  307.     !X.Type = 0L
  308.     !X.Ticks = 0L
  309.     !X.Ticklen = 0.0
  310.     !X.Thick = 0.0
  311.     !X.Crange = 0.0
  312.     !X.Omargin = 0.0
  313.     !X.Window = 0.0
  314.     !X.Region = 0.0
  315.     !X.Charsize = 0.0
  316.     !X.Minor = 0L
  317.     !X.Tickv = 0.0
  318.     !X.Tickname = ''
  319.     !X.Gridstyle = 0L
  320.     !X.Tickformat = ''
  321.  
  322.     !Y = !X
  323.     !Z = !X
  324.  
  325.     !X.Margin = [10.0, 3.0]     ;.Margin is different for x,y,z
  326.     !Y.Margin = [4.0, 2.0]
  327.     !Z.Margin = 0
  328. end
  329.  
  330.  
  331. pro button_group, buttons, index, x0, y0, ydelta, screen, Names, DEFINE=ndefine
  332. ; Define a column of buttons.  
  333. ; Inputs: buttons = array of button structures.
  334. ; Index = index of next button to define.  On exit, index is incremented.
  335. ; x0, y0 = starting coordinate for the first button.  y0 is output as
  336. ; the starting coordinate for the next button.
  337. ; ydelta = vertical spacing between buttons.
  338. ; screen = screen index of button.
  339. ; Names = [2,n] array of Button values and uvalues.
  340.  
  341. n = n_elements(names)/2
  342. xsize = 130
  343. ysize = 23
  344.  
  345. for i=0, n-1 do begin
  346.     s = { d5btn_s, $
  347.           Value: Names[i*2], $
  348.           Uvalue: Names[i*2+1], $
  349.           xsize: xsize, $
  350.           ysize: ysize, $
  351.           xoffset: fix(x0), $
  352.           yoffset: fix(y0), $
  353.           screenNum: fix(screen), $
  354.           btnbase: 0L$
  355.     }
  356.     if index eq 0 then $        ;Define array?
  357.       buttons = replicate(s, ndefine)
  358.     
  359.     buttons[index] = s
  360.     y0 = y0 + ydelta
  361.     index = index + 1
  362.  
  363. endfor
  364.  
  365. end
  366.                        
  367. ;----------------------------------------------------------------------------
  368. ;
  369. ;  Purpose:  Define (not create) the push down
  370. ;            buttons within the splash screens.
  371. ;
  372. pro buttonDef, buttons
  373.  
  374. numButtons = 71
  375. index = 0
  376.  
  377.     ;  Main level buttons, screen 0, group 1
  378. ystart = 115
  379. button_group, buttons, index, 36, ystart, 27, 0, DEFINE=numButtons, $
  380.   ['Earth Sciences', '.4', $ ;  Main level buttons, screen 0, group 1
  381.    'Engineering', '.5', $
  382.    'Medical', '.6', $
  383.    'Space/Physics', '.8']
  384.  
  385. button_group, buttons, index, 36, ystart + 27, 27, 0, $
  386.    ['RSI Products', '.7']
  387.  
  388. ;  Main level buttons, screen 0, group 2
  389. ystart = 243
  390. button_group, buttons, index, 485, ystart, 27, 0, $ 
  391.   ['Visualization', '.9', $
  392.    'Data Analysis', '.1', $
  393.    'Application Development', '.2']
  394. button_group, buttons, index, 485, ystart + 27, 27, 0, $ 
  395.    ['Contact RSI', '.3']
  396.  
  397.     ;  Second Level Buttons, screens are listed in alphabetical order,
  398.     ;  not screen order.  Vertical Spacing is 29 pixels.
  399.  
  400.     ;  Analysis Buttons, screen 1
  401. button_group, buttons, index, 75, 40, 29, 1, $
  402.   [ 'Math and Statistics', 'D_MATHSTAT', $
  403.     'Matrix Data', 'D_MATRIX', $
  404.     'Signal Processing', 'FILTER-SIGNAL', $
  405.     'Image Processing', 'D_IMAGPROC', $
  406.     'Venn Diagrams', 'D_VENN', $
  407.     'Wavelets', 'D_WAVELET', $
  408.     'People of RSI', 'D_PEOPLE', $
  409.     'Return to Main Screen', '.0']
  410.  
  411. button_group, buttons, index, 330, 200, 29, 2, $
  412.   [ 'GUI Development', 'D_WIDGETS', $ ;  AppDev Buttons, screen 2
  413.     'Database Connectivity','.12', $
  414.     'Development Environment','?DEVENV', $
  415.     'OO Programming', '?OOPROG', $
  416.     'Cross Platform Dev', '?CROSS', $
  417.     'Return to Main Screen', '.0']
  418.  
  419. button_group, buttons, index, 383, 324, 29, 3, $
  420.   [ 'Return to Main Screen', '.0']
  421.  
  422. button_group, buttons, index, 85, 38, 29, 4, $
  423.   ['Mapping', 'D_MAP', $      ;  Earth Buttons, screen 4
  424.    'Tides', 'D_TIDES', $
  425.    'Globe', 'D_GLOBE', $
  426.    'Texture Mapping', 'D_TEXTURE', $
  427.    'Flyby', 'D_FLYBY', $
  428.    'Environmental Modeling', 'D_TANKLEAK', $
  429.    'ENVI', '.10', $
  430.    'Return to Main Screen', '.0']
  431.  
  432.  
  433. button_group, buttons, index, 66, 57, 29, 5, $
  434.   ['Forecasting', 'D_FORECAST', $    ;  Engineering Buttons, screen 5
  435.    'Optimization', 'D_OPTIMIZE', $
  436.    'Fourier Filtering', 'FILTER-ENGR', $
  437.    'CFD', 'D_CFD', $
  438.    'Time Series', 'D_T_SERIES', $
  439.    'Return to Main Screen', '.0']
  440.  
  441. button_group, buttons, index, 402, 92, 29, 6, $
  442.   ['Reconstruction', 'D_RECONSTR', $ ;  Medical Buttons, screen 6
  443.    'Image Animation', 'D_GATED', $
  444.    'Beating Heart', 'D_HEART', $
  445.    'Volumes', 'D_VOLRENDR', $
  446.    'Visible Human', '.11', $
  447.    'Return to Main Screen', '.0']
  448.  
  449. button_group, buttons, index, 410, 100, 29, 7, $
  450.   ['IDL Insight', '.13', $ ;  RSI Product Buttons, screen 7
  451.    'ENVI', '.10', $
  452.    'Visible Human', '.11', $
  453.    'IDL DataMiner', '.12', $
  454.    'Return to Main Screen', '.0']
  455.  
  456. button_group, buttons, index, 29, 261, 29, 8, $
  457.   ['Fourier Filtering', 'FILTER-SPACE', $ ; Space Buttons, screen 8
  458.    'ROI Segmentation', 'ROI-SPACE', $
  459.    'Return to Main Screen', '.0']
  460.  
  461.  
  462. if !version.os_family NE 'Windows' then begin
  463. button_group, buttons, index, 53, 160, 29, 9, $
  464.   ['2D Plotting', 'D_PLOT2D', $     ;  Viz Buttons, screen 9, group 1
  465.    'Contouring', 'D_CONTOUR', $
  466.    '3D Geometry', 'D_OBJECT3D', $
  467.    'Surface Objects', 'D_SURFVIEW', $
  468.    'Volumes', 'D_VOLRENDR', $
  469.    'US Census', 'D_USCENSUS', $
  470.    'Vibrating Membrane', 'D_VIBMEMBR']
  471. endif else begin
  472. ;;; Don't allow US Census demo if Windows
  473. button_group, buttons, index, 53, 160, 29, 9, $
  474.   ['2D Plotting', 'D_PLOT2D', $     ;  Viz Buttons, screen 9, group 1
  475.    'Contouring', 'D_CONTOUR', $
  476.    '3D Geometry', 'D_OBJECT3D', $
  477.    'Surface Objects', 'D_SURFVIEW', $
  478.    'Volumes', 'D_VOLRENDR', $
  479.    'Vibrating Membrane', 'D_VIBMEMBR']
  480. endelse
  481.  
  482. button_group, buttons, index, 390, 125, 29, 9, $
  483.   ['Mapping', 'D_MAP', $      ;  Viz Buttons, screen 9, group 2
  484.    'Gridding', 'D_GRIDDING', $
  485.    'Texture Mapping', 'D_TEXTURE', $
  486.    'Flyby', 'D_FLYBY', $
  487.    'Orbit', 'D_ORBIT', $
  488.    'Slicer', 'D_SLICE', $
  489.    'Return to Main Screen', '.0']
  490.  
  491. button_group, buttons, index, 20, 375, 29, 10, $ ;  ENVI Buttons, screen 10
  492.   ['Back','.-']
  493.  
  494. button_group, buttons, index, 20, 375, 29, 11, $ ;  VH Buttons, screen 11
  495.   ['Back','.-']
  496.  
  497. button_group, buttons, index, 20, 375, 29, 12, $ ;  DataMiner Buttons, screen 12
  498.   ['Back','.-']
  499.  
  500. button_group, buttons, index, 120, 275, 29, 13, $ ;  Insight Buttons, screen 13
  501.   ['Start IDL Insight','INSIGHT-START']
  502. button_group, buttons, index, 20, 375, 29, 13, $
  503.   ['Back','.-']
  504.  
  505. end
  506.  
  507.  
  508. pro GetMenuDescription, MenuDescription ;Define the menu string arrays.
  509.  
  510. MenuDescription = $
  511.   [   '1\File', '', $
  512.       '2\Quit', 'quit', $
  513.       '1\Applications', '', $
  514.       '1\Earth Sciences', '', $
  515.       '0\Mapping', 'D_MAP', $
  516.       '0\Oceanic Tides Animation', 'D_TIDES', $
  517.       '0\Globe', 'D_GLOBE', $
  518.       '0\Texture Mapped Terrain', 'D_TEXTURE', $
  519.       '0\Terrain Flyby', 'D_FLYBY', $
  520.       '0\Environmental Modeling', 'D_TANKLEAK', $
  521.       '2\ENVI', '.10', $
  522.       '1\Engineering', '', $
  523.       '0\Forecasting', 'D_FORECAST', $
  524.       '0\Optimization', 'D_OPTIMIZE', $
  525.       '0\Fourier Filtering', 'FILTER-ENGR', $
  526.       '0\Computational Fluid Dynamics', 'D_CFD', $
  527.       '2\Time Series', 'D_T_SERIES', $
  528.       '1\Medical', '', $
  529.       '0\Image Reconstruction', 'D_RECONSTR', $
  530.       '0\Image Animation', 'D_GATED', $
  531.       '0\Beating Heart', 'D_HEART', $
  532.       '0\Volume Visualization', 'D_VOLRENDR', $
  533.       '2\Visible Human', '.11' ]
  534.  
  535. if !version.os_family NE 'Windows' then begin
  536. MenuDescription = $            ;Cause strings are too long to concatenate
  537.   [   MenuDescription, $
  538.       '1\Physics and Space Sciences', '', $
  539.       '0\Fourier Filtering', 'FILTER-SPACE', $
  540.       '2\ROI Segmentation', 'ROI-SPACE', $
  541.       '3\RSI Products', '', $
  542.       '0\IDL Insight', '.13', $
  543.       '0\ENVI', '.10', $
  544.       '0\Visible Human CD', '.11', $
  545.       '2\IDL Dataminer', '.12', $
  546.       '1\Features', '', $
  547.       '1\Visualization', '', $
  548.       '0\2D Plotting', 'D_PLOT2D', $
  549.       '0\Contouring', 'D_CONTOUR', $
  550.       '0\3D Geometry Viewing', 'D_OBJECT3D', $
  551.       '0\Surface Objects', 'D_SURFVIEW', $
  552.       '0\Volume Visualization', 'D_VOLRENDR', $
  553.       '0\US Census', 'D_USCENSUS', $
  554.       '0\Vibrating Membrane', 'D_VIBMEMBR', $
  555.       '0\Mapping', 'D_MAP', $
  556.       '0\Gridding and Interpolation', 'D_GRIDDING', $
  557.       '0\Texture Mapped Terrain', 'D_TEXTURE', $
  558.       '0\Terrain Flyby', 'D_FLYBY', $
  559.       '0\Orbiting Satellite', 'D_ORBIT', $
  560.       '2\Slicer', 'D_SLICE', $
  561.       '1\Data Analysis', '', $
  562.       '0\Math and Statistics', 'D_MATHSTAT', $
  563.       '0\Matrix Data', 'D_MATRIX', $
  564.       '0\Signal Processing', 'FILTER-SIGNAL', $
  565.       '0\Image Processing', 'D_IMAGPROC', $
  566.       '0\Venn Diagrams', 'D_VENN', $
  567.       '0\Wavelets', 'D_WAVELET', $
  568.       '2\The People of RSI', 'D_PEOPLE', $
  569.       '3\Application Development', '',$
  570.       '0\GUI Development', 'D_WIDGETS', $
  571.       '0\Database Connectivity', '.12', $
  572.       '0\Development Environment', '?DEVENV', $
  573.       '0\Object Oriented Programming', '?OOPROG', $
  574.       '2\Cross Platform Development', '?CROSS']
  575. endif else begin
  576. ;;; Don't allow US Census demo if Windows
  577. MenuDescription = $            ;Cause strings are too long to concatenate
  578.   [   MenuDescription, $
  579.       '1\Physics and Space Sciences', '', $
  580.       '0\Fourier Filtering', 'FILTER-SPACE', $
  581.       '2\ROI Segmentation', 'ROI-SPACE', $
  582.       '3\RSI Products', '', $
  583.       '0\IDL Insight', '.13', $
  584.       '0\ENVI', '.10', $
  585.       '0\Visible Human CD', '.11', $
  586.       '2\IDL Dataminer', '.12', $
  587.       '1\Features', '', $
  588.       '1\Visualization', '', $
  589.       '0\2D Plotting', 'D_PLOT2D', $
  590.       '0\Contouring', 'D_CONTOUR', $
  591.       '0\3D Geometry Viewing', 'D_OBJECT3D', $
  592.       '0\Surface Objects', 'D_SURFVIEW', $
  593.       '0\Volume Visualization', 'D_VOLRENDR', $
  594.       '0\Vibrating Membrane', 'D_VIBMEMBR', $
  595.       '0\Mapping', 'D_MAP', $
  596.       '0\Gridding and Interpolation', 'D_GRIDDING', $
  597.       '0\Texture Mapped Terrain', 'D_TEXTURE', $
  598.       '0\Terrain Flyby', 'D_FLYBY', $
  599.       '0\Orbiting Satellite', 'D_ORBIT', $
  600.       '2\Slicer', 'D_SLICE', $
  601.       '1\Data Analysis', '', $
  602.       '0\Math and Statistics', 'D_MATHSTAT', $
  603.       '0\Matrix Data', 'D_MATRIX', $
  604.       '0\Signal Processing', 'FILTER-SIGNAL', $
  605.       '0\Image Processing', 'D_IMAGPROC', $
  606.       '0\Venn Diagrams', 'D_VENN', $
  607.       '0\Wavelets', 'D_WAVELET', $
  608.       '2\The People of RSI', 'D_PEOPLE', $
  609.       '3\Application Development', '',$
  610.       '0\GUI Development', 'D_WIDGETS', $
  611.       '0\Database Connectivity', '.12', $
  612.       '0\Development Environment', '?DEVENV', $
  613.       '0\Object Oriented Programming', '?OOPROG', $
  614.       '2\Cross Platform Development', '?CROSS']
  615. endelse
  616.  
  617. MenuDescription = $             ;Cause strings are too long to concatenate
  618.   [   MenuDescription, $
  619.       '1\Help', '', $
  620.       '2\IDL Online Help Navigator', '?NOARG', $
  621.       '1\About', '', $
  622.       '0\About the IDL Demo', '>abt_demo|About this Demo', $
  623.       '1\About Research Systems', '', $
  624.       '0\History of Research Systems', '>abt_rsi|History of Research Systems', $
  625.       '0\Distributors', ">abt_dist|Research Systems' Distributors", $
  626.       '0\The People of RSI', 'D_PEOPLE', $
  627.       '0\Training Courses', '>abt_trng|Research Systems Training', $
  628.       '0\Consulting', '>abt_cons|Research Systems Consulting', $
  629.       '0\IDL Information', '>abt_idl|IDL', $
  630.       '0\ENVI Information', '>abt_envi|ENVI', $
  631.       '2\Visible Human CD Information', '>abt_vh|Visible Human CD']
  632. end                             ;getmenudescription
  633.  
  634.  
  635. Function XFindFont, FontNames
  636. ; See if a font can be found. FontNames = an array of font names.  On exit
  637. ; the function value is either the first found font, or the null string.
  638.  
  639. for i=0, n_elements(FontNames)-1 do begin ;Search for a font
  640.     Device, Font=FontNames(i), Get_Fontnum=fontnum, GET_FONTNAME=s
  641.     if fontnum gt 0 then return, s(0)
  642. endfor
  643. return, ''                      ;Couldn't find the font.
  644. end
  645.  
  646. ;----------------------------------------------------------------------------
  647. ;
  648. ;  Purpose:  Create the push down buttons.
  649. ;
  650. pro createButtons, $
  651.     mainWinBase, $   ; IN: Main window base ID
  652.     buttons          ; IN: buttons created bu buttonDef routine.
  653.  
  654. case !VERSION.OS_FAMILY of
  655.     'Windows' : button_font = 'MS Sans Serif*8'
  656.     'MacOS' : button_font = ''
  657.     ELSE: $                     ;  Find a font for Unix and VMS
  658.         button_font = XFindFont(['-adobe-helvetica-medium-r-normal--10-*-*-*', $
  659.                                  '-misc-fixed-medium-r-normal--10-*-*-*'])
  660. ENDCASE
  661.  
  662. for i=0, N_ELEMENTS(buttons)-1 do begin
  663.  
  664.     buttons[i].btnbase = WIDGET_BASE(mainWinBase, MAP=0, $
  665.                                      xoffset = buttons[i].xoffset, $
  666.                                      yoffset = buttons[i].yoffset)
  667.  
  668.     buttonId = WIDGET_BUTTON(buttons[i].btnbase, $
  669.                              VALUE=buttons[i].value, $
  670.                              UVALUE=buttons[i].uvalue, $
  671.                              XSIZE=buttons[i].xsize, $
  672.                              YSIZE=buttons[i].ysize, $
  673.                              FONT=button_font)
  674. endfor
  675. end
  676.  
  677. ;----------------------------------------------------------------------------
  678. ;
  679. ;  Purpose:  read the required image index newScreen, and display it.
  680. ;
  681. pro showScreen, newScreen, state
  682. t0 = systime(1)
  683.  
  684.  
  685. WSET, state.mainDrawID
  686.  
  687. Header = state.gif_hdr
  688. Image = PReadDemoScreen(newScreen, header, colortb, DEBUG=state.debug)
  689. state.gif_hdr = Header          ;Restore gif status
  690. WIDGET_CONTROL, state.imageBase, MAP=0   ;If we rearrange order of
  691.                                 ; operations, this seems unnecessary. 
  692. TVLCT, colortb
  693. TV, *image                      ;show it
  694.  
  695. for i=0, N_ELEMENTS(state.buttons)-1 do $ ;Map buttons for this screen
  696.   WIDGET_CONTROL, state.buttons[i].btnBase, $
  697.     MAP= state.buttons[i].screenNum eq newScreen
  698.  
  699. state.prevScreenNum = state.curScreenNum
  700. state.curScreenNum  = newScreen
  701. WIDGET_CONTROL, state.imageBase, MAP=1
  702.  
  703. if state.debug then timer, 'ShowScreen ', t0
  704. end
  705.  
  706.  
  707.  
  708.  
  709. ;----------------------------------------------------------------------------
  710. ;
  711. ;  Purpose:  Start the INSIGHT tool.
  712. ;
  713. pro demoStartInsight, top
  714.  
  715.     if (lmgr(/embedded) GT 0) then begin
  716.         result = DIALOG_MESSAGE(/QUESTION, $
  717.            DIALOG_PARENT=top, $
  718.            'Enter a time-limited IDL Insight session ?')
  719.         if (strupcase(result) EQ 'YES') then begin
  720.             tmp=lmgr(/force_demo)
  721.             insight
  722.         endif
  723.     endif else insight
  724. end
  725.  
  726. ;----------------------------------------------------------------------------
  727. ;
  728. ;  Purpose:  This routine is used to start the online
  729. ;            help system. The user value (uval) can come
  730. ;            from either a button or the pulldown menu
  731. ;
  732. pro starthelp, $
  733.     uval,      $ ; IN: user value
  734.     top          ; IN: top level base
  735.  
  736.     result = DIALOG_MESSAGE(/QUESTION, $
  737.         DIALOG_PARENT=top, $
  738.         ['This choice will start the Online Help system.', $
  739.          '', $
  740.          'Do you want to continue ?'])
  741.     if (strupcase(result) EQ 'NO') then RETURN
  742.  
  743.     case uval of
  744.         'DEVENV': begin
  745.  
  746.             ;  Start the online help and display the page
  747.             ;  with the index for the IDL Development Environment
  748.             ;  for the applicable platform.
  749.             ;
  750.             case !VERSION.OS_FAMILY of
  751.                 'unix':    online_help, 13010, /context
  752.                 'vms':     online_help, 13010, /context
  753.                 'Windows': online_help, 14010, /context
  754.                 'MacOS':   online_help, 15010, /context
  755.             endcase
  756.         end
  757.  
  758.         'OOPROG': online_help, book='oog'
  759.  
  760.         ;  Start online help with the context number
  761.         ;  for "platforms supported".
  762.         ;
  763.         'CROSS': online_help, 00010, /context
  764.  
  765.         ;  Start the online help system with the default screen
  766.         ; 
  767.         'NOARG': online_help
  768.  
  769.     endcase
  770.  
  771. end
  772.  
  773.  
  774. ;----------------------------------------------------------------------------
  775. ;
  776. ;  Purpose:  This routine is used to start all demos.
  777. ;            Name must be the name of the procedure to call.
  778. ;            a button or the pulldown menu
  779. ;
  780. pro startapp, $
  781.               Name, $           ;Name of demo
  782.               state, $          ; IN: state structure
  783.               top, $            ; IN: top level base
  784.               EXTRA = extra     ;Extra keyword parameter structure (optional)
  785.  
  786.     if (WIDGET_INFO(state.apptlb, /VALID)) then begin
  787.         result = DIALOG_MESSAGE('Only one demo may run at a time')
  788.         RETURN
  789.     endif
  790.  
  791.     if state.slow and (total(name eq state.slow_demos) gt 0) then begin
  792.         result = $
  793.           DIALOG_MESSAGE(['This demo utilizes computationally intensive', $
  794.                           'graphics.  Response on this machine may be', $
  795.                           'unacceptably slow.', $
  796.                           'Continue anyway?'], $
  797.                          DIALOG_PARENT=top, $
  798.                          /QUESTION)
  799.                                 ;Only display once
  800.         state.slow_demos(where(state.slow_demos eq name)) = 'XXXX'
  801.         if result eq 'No' then return
  802.     endif                          
  803.  
  804.     WIDGET_CONTROL, /HOURGLASS
  805.     idl_demo_reset
  806.     resolve_routine, Name       ;Be sure its compiled/loaded
  807.     state.demo_name = Name      ;Save name of demo
  808.     WIDGET_CONTROL, state.mainWinBase, map=0 ;Unmap menu
  809.     if state.debug then begin   ;Clean up our memory first, we should
  810.                                 ;have nothing allocated except the
  811.                                 ;pointers for the screen cache.
  812.         ptr_free, state.gif_hdr.cache ;Free our screens
  813.         state.gif_hdr.cache = ptr_new() ;by clearing the cache...
  814.         state.memory = memory() ;Save memory state
  815.     endif
  816.  
  817.     if n_elements(extra) gt 0 then $ ;Call it
  818.       call_procedure, Name, GROUP=top, APPTLB = appTLB, _EXTRA=extra $
  819.     else call_procedure, Name, GROUP=top, APPTLB = appTLB
  820.  
  821.     if state.debug then begin
  822.     endif
  823.     if n_elements(appTLB) then state.appTlb = appTLB $
  824.     else state.appTlb = 0L
  825.  
  826. end
  827.  
  828. ;----------------------------------------------------------------------------
  829. ;
  830. ;  Purpose:  GEt the screen size. Returns failure (0) if the 
  831. ;            screen size is too small, returns 1 (success)
  832. ;            otherwise.
  833. ;
  834. function IDL_DEMO_SIZE, $
  835.     DesiredX, $
  836.     DesiredY, $
  837.     ActualX, $
  838.     ActualY
  839.  
  840.     DEVICE, GET_SCREEN_SIZE=scr_size
  841.     ActualX = scr_size[0]
  842.     ActualY = scr_size[1]
  843.  
  844.     if ((DesiredX LE ActualX) AND (DesiredY LE ActualY)) then RETURN, 1
  845.  
  846.     str_x = Strtrim(String(DesiredX), 2)
  847.     str_y = Strtrim(String(DesiredY), 2)
  848.     junk = DIALOG_MESSAGE(['The screen resolution must be at least', $
  849.         str_x + ' by ' + str_y + ' to run this demo.'])
  850.     RETURN, 0
  851. end
  852.  
  853. ;----------------------------------------------------------------------------
  854. ;
  855. ;  Purpose:  Initilize the main demo. Show the start up
  856. ;            screen.
  857. ;
  858. function DemoInit, $
  859.     fullScrXsize, $   ; IN: X monitor size
  860.     fullScrYsize      ; IN: Y monitor size
  861.  
  862. case !Version.Os_Family OF
  863.     'vms': add = ''
  864.     'Windows': add = '\EXAMPLES\DEMO;'
  865.     'MacOS':   add = ':Examples:Demo,'
  866.     ELSE:      add = '/examples/demo:'
  867. endcase
  868.  
  869. if add ne '' and strpos(!path, add) lt 0 then $ ;Add our path?
  870.   !Path = !Dir + add + !Path
  871.  
  872.     if ((!D.Flags AND (2L^16)) NE (2L^16)) then begin
  873.         Print, ' '
  874.         Print, 'Unable to start the IDL demo.'
  875.         Print, 'The current device does not support widgets.'
  876.         Print, 'See the "SET_PLOT" command for more information.'
  877.         Print, ' '
  878.         RETURN, -1
  879.     endif
  880.  
  881.     ;  Test for the presence of one of the demo save files to determine
  882.     ;  if the demos have been installed.  (The main demo.sav file is
  883.     ;  always installed on some systems.)  If the file is not present,
  884.     ;  exit with a warning.
  885.     openr, Lun, FILEPATH('d_animate.sav', SUBDIR=['examples','demo']), $
  886.       /GET_LUN, ERROR=i
  887.     if (i Lt 0) then begin
  888.         tmp = DIALOG_MESSAGE( /ERROR, [ $
  889.            'This IDL Demo application is missing files which are normally', $
  890.            'installed with the demo option of the installation.', $
  891.            '', $
  892.            'See your installation guide for details on installing the demo.'])
  893.         RETURN, -1
  894.     endif
  895.     Free_Lun, Lun
  896.  
  897.     ;  Initialize the device.
  898.     ;
  899.     if (((!D.Name EQ 'X') OR (!D.NAME EQ 'MacOS')) AND $
  900.         (!D.N_Colors GE 256L)) then DEVICE, Pseudo_Color=8
  901.     DEVICE, Decomposed=0, Bypass_Translation=0
  902.  
  903.     ;  This is needed since the screens are unmapped and then mapped.
  904.     ;
  905.     DEVICE, RETAIN=2
  906.  
  907.     ; Determine the Screen Size
  908.     ;
  909.     if !Version.Os_Family EQ 'MacOS' then begin
  910.        minXsize = 640
  911.        minYsize = 440
  912.     endif else begin
  913.        minXsize = 640
  914.        minYsize = 480
  915.     endelse
  916.     if not(IDL_DEMO_SIZE(minXsize, minYsize, fullScrXsize, fullScrYsize)) $
  917.        then RETURN, -1
  918.  
  919.     ;  Set default font for text in widgets
  920.     ;
  921.     CASE !Version.OS_Family OF
  922.     ;  Don't set it for Windows or Mac, the systems defaults are fine
  923.     'Windows': 
  924.     'MacOS': 
  925.     ELSE:  BEGIN                ;  Find a font for Unix and VMS. 
  926.         save_wind = !D.Window
  927.         Window, /Free, Xsize=4, Ysize=4, /Pixmap, Retain=2
  928.         pix_win = !D.Window
  929.         Font = XFindFont(['-adobe-helvetica-medium-r-normal--14-*-*-*', $
  930.                           '9x15'])
  931.         wdelete, pix_win
  932.         wset, save_wind
  933.         IF (font ne '') THEN Widget_Control, Default_Font= Font
  934.     ENDCASE
  935. ENDCASE
  936.  
  937. RETURN, 1                       ;  Return 1 for success.
  938.  
  939. end
  940.  
  941. ;----------------------------------------------------------------------------
  942. ;
  943. ;  Purpose:  Cleanup procedure.
  944. ;
  945. pro idl_demo_cleanup, $
  946.     tlb     ; IN: Top level base
  947.  
  948.     WIDGET_CONTROL, tlb, GET_UVALUE=state, /NO_COPY
  949.  
  950.     ;  Restore the previous color table.
  951.     ;
  952.     TVLCT, state.colorTable
  953.     free_lun, state.gif_hdr.lun
  954.     ptr_free, state.gif_hdr.cache
  955.     !quiet = state.quiet
  956.     if state.debug then begin
  957.         print, "Looking for heap vars, windows, file units:
  958.         help, /heap
  959.         help, /files
  960.         print, '!d.window: ', !d.window
  961.     end
  962. end   ; idl_demo_cleanup
  963.  
  964.  
  965. ;----------------------------------------------------------------------------
  966. ;
  967. ;  Purpose:  Main event handler.
  968. ;
  969. ; The uvalue (or in the case of pulldown menus, the uvalue is saved in
  970. ; state.MenuActions) is encoded as follows:
  971. ; quit = quit
  972. ; INSIGHT-START = start insight.
  973. ; >FileName|Title  = display the file FileName in the demotext
  974. ;     directory, with the given title.
  975. ; .n = display screen n (n is a series of digits.)
  976. ; .- = display previous screen
  977. ; ?KEY = call STARTHELP with KEY
  978. ; NAME = call startapp with NAME
  979.  
  980.  
  981. pro idl_demo_event, $
  982.     event      ; IN: event structure.
  983.  
  984. ;  Quit the application using the close box.
  985. ;
  986. WIDGET_CONTROL, event.top, GET_UVALUE=state, /NO_COPY, /HOURGLASS
  987.  
  988. if (TAG_NAMES(event, /STRUCTURE_NAME) EQ 'WIDGET_KILL_REQUEST') then begin
  989.    WIDGET_CONTROL, event.top, SET_UVALUE=state, /NO_COPY
  990.    WIDGET_CONTROL, event.top, /DESTROY
  991.    RETURN
  992. endif
  993.  
  994. WIDGET_CONTROL,event.id,GET_UVALUE=uval
  995.  
  996. if state.debug and state.memory(0) ne 0L then begin ;Check demo's memory use?
  997.     mem_end = fix(memory()/1000L) ;In K...
  998.     mem_start = fix(state.memory/1000L)
  999.     print, 'Finished demo ', state.demo_name
  1000.     print, 'Memory before start: ', mem_start(0), 'K, after: ', $
  1001.       mem_end(0), ', delta: ', mem_end(0) - mem_start(0)
  1002.     print, 'High-water mark: ', mem_start(4)
  1003.     heap_gc, /VERBOSE
  1004.     device, WINDOW_STATE=w      ;Check for open windows
  1005.     if total(w) gt 1 then begin ;Got too many windows open
  1006.         print, 'ERROR: Only one window should be open:', where(w)
  1007.     endif
  1008.     state.memory = 0L
  1009. endif
  1010.  
  1011.  
  1012.     ;  This CATCH branch handles unexpected errors that might
  1013.     ;  arise in the event loop.  Since the state is retrieved
  1014.     ;  with NO_COPY, it is important to put it back into the
  1015.     ;  user value of event.top so that execution can continue
  1016.     ;  if there is an error caught by CATCH.
  1017.     ;
  1018. ErrorStatus = 0
  1019. CATCH, ErrorStatus
  1020. IF (ErrorStatus NE 0) THEN BEGIN
  1021.     CATCH, /CANCEL
  1022.     v = DIALOG_MESSAGE(['Unexpected error in DEMO:', $
  1023.                         '!ERR_STRING = ' + !ERR_STRING, $
  1024.                         '!SYSERROR = ' + STRTRIM(LONG(!SYSERROR), 2), $
  1025.                         '!SYSERR_STRING = ', !SYSERR_STRING, $
  1026.                         ' ', 'Cleaning up...'], $
  1027.                        DIALOG_PARENT=event.top, $
  1028.                        /ERROR)
  1029.     WIDGET_CONTROL, event.top, SET_UVALUE=state, /NO_COPY
  1030.     WIDGET_CONTROL, event.top, /MAP
  1031.     RETURN
  1032. ENDIF
  1033.  
  1034. ; if state.debug then begin       ;Debugging
  1035. ;    if total(tag_names(event) eq 'VALUE') ne 0 then v = event.value $
  1036. ;    else v = '<>'
  1037. ;    print, uval, ' ', v
  1038. ; endif
  1039.  
  1040. if uval eq 'MAIN_PULLDOWN' then $ ;Translate menu pulldowns using action array
  1041.   uval = state.MenuActions(event.value)
  1042.  
  1043. char = strmid(uval, 0, 1)       ;What kind of action
  1044. rest = strmid(uval, 1, strlen(uval)-1)
  1045.  
  1046. if char eq '.' then begin       ;Display a screen
  1047.     if uval eq '.-' then showScreen, state.prevScreenNum, state $
  1048.     else showScreen, fix(rest), state
  1049. endif else if char eq '>' then begin ;Display a file
  1050.     parts = str_sep(rest, '|') ;Get file name & title
  1051.     xdisplayfile, filepath(parts[0] + '.txt', $
  1052.                            SUBDIR=['examples','demo','demotext']), $
  1053.       group=group, HEIGHT=35, WIDTH=80, $
  1054.       title= parts[1]
  1055. endif else if char eq '?' then begin
  1056.     starthelp, rest, event.top
  1057. endif else begin                ;Must be a startapp
  1058.     if uval eq 'quit' then begin ;Quit is a special case
  1059.         WIDGET_CONTROL, event.top, SET_UVALUE=state ;Restore our state
  1060.         WIDGET_CONTROL, event.top, /destroy
  1061.         return
  1062.     endif else if uval eq 'INSIGHT-START' then begin
  1063.         demoStartInsight, event.top
  1064.     endif else begin            ;Just call the app
  1065.         case uval of            ;Check for special cases
  1066.             'ROI-SPACE' : startapp, 'D_ROI', state, event.top, EXTRA={ASTRO:1}
  1067.             'FILTER-SIGNAL' : startapp, 'D_FILTER', state, event.top, $
  1068.               EXTRA={FILENAME: 'damp_sn.dat'}
  1069.             'FILTER-ENGR': startapp, 'D_FILTER', state, event.top, $
  1070.               EXTRA={FILENAME: 'damp_sn.dat'}
  1071.             'FILTER-SPACE': startapp, 'D_FILTER', state, event.top, $
  1072.               EXTRA={FILENAME:'galaxy.dat'}
  1073.             else : startapp, uval, state, event.top ;Normal demo
  1074.         endcase
  1075.     endelse
  1076. endelse
  1077.  
  1078. WIDGET_CONTROL, event.top, SET_UVALUE=state, /NO_COPY ;Restore our state
  1079. END   ; idl_demo_event
  1080.  
  1081.  
  1082.  
  1083.  
  1084. pro demo_timer, text, t0
  1085. t1 = systime(1)
  1086. print, text, ' ', t1 - t0
  1087. t0 = t1
  1088. end
  1089.  
  1090. ;----------------------------------------------------------------------------
  1091. ;
  1092. ;  Purpose:  Main procedure for IDL 5.0 demo.
  1093. ;
  1094. pro demo, $
  1095.           debug=debug
  1096.  
  1097. ; This is a list of demos that are slow.  If we judge the machine to
  1098. ; be slow, and we run one of these demos, a message is displayed the
  1099. ; first time the demo is run.
  1100.  
  1101. if !version.os_family NE 'Windows' then begin
  1102. slow_demos = [ 'D_FLYBY', 'D_GLOBE', 'D_HEART', 'D_OBJECT3D', 'D_ORBIT', $
  1103.                'D_SURFVIEW', 'D_TANKLEAK', 'D_TEXTURE', 'D_USCENSUS', $
  1104.                'D_VIBMEMBR', 'D_VOLRENDR']
  1105. endif else begin
  1106. ;;; Don't allow US Census demo if Windows
  1107. slow_demos = [ 'D_FLYBY', 'D_GLOBE', 'D_HEART', 'D_OBJECT3D', 'D_ORBIT', $
  1108.                'D_SURFVIEW', 'D_TANKLEAK', 'D_TEXTURE', $
  1109.                'D_VIBMEMBR', 'D_VOLRENDR']
  1110. endelse
  1111. debug = keyword_set(debug)
  1112. t0 = systime(1)
  1113. tstart = t0
  1114. quietsave = !quiet
  1115. !quiet = 1                      ;Remove obnoxious messages
  1116.  
  1117. if ( xregistered ( "idl_demo" ) NE 0 ) then RETURN
  1118.  
  1119. if (demoInit(fullScrXsize, fullScrYsize) LT 0) then return
  1120. resolve_routine, 'd_animate'    ;Cause it contains multiple files
  1121. if debug then timer, 'demoinit', t0
  1122.  
  1123.                                 ;  Get the current color table. 
  1124.                                 ;  It will be restored when exiting.
  1125.                                 ;
  1126. TVLCT, colorTable, savedG, savedB, /GET
  1127. colorTable=[[colorTable],[savedG],[savedB]]
  1128.  
  1129. If OpenDemoScreens(filepath('screens.gif', $
  1130.                             SUBDIR=['examples','demo','demodata']), $
  1131.                    Header) $
  1132.   lt 0 then return              ;If we cant find screens file, adios.
  1133.  
  1134.                                 ; Read and display the splash screen
  1135. Image = PReadDemoScreen(n_elements(Header.start)-1, $  ;Index of splash screen
  1136.                         Header, Colortb, /NO_CACHE)
  1137. demoSplashStart, fullScrXsize, fullScrYsize, *Image, $ ;  Display splash screen
  1138.   colortb, splashBase, startSplash
  1139. Ptr_Free, Image                 ;No longer required
  1140.  
  1141. if debug then timer, 'demosplashstart', t0
  1142.  
  1143. WIDGET_CONTROL, /HOURGLASS
  1144.  
  1145. ;  Setup the Main Window and Pull Down Menus.
  1146. if ((!version.os_family EQ 'MacOS') AND $
  1147.     (fullScrXsize LT 700 OR fullScrYsize LT 560)) then begin
  1148.  
  1149. ;  Use a scrolling base to allow access to all of demo screen on MacOS
  1150. ;  with small screen
  1151.     xPad = 20
  1152.     yPad = 20
  1153.     mainWinBase = WIDGET_BASE ( TITLE="IDL Demo",  /COLUMN, $
  1154.                                 /ALIGN_CENTER, $
  1155.                                 XSIZE=640, YSIZE=480, $
  1156.                                 X_SCROLL_SIZE=fullScrXsize - xPad, $
  1157.                                 Y_SCROLL_SIZE=fullScrYsize - yPad, $
  1158.                                 MBAR=mainWinMenuBase, TLB_FRAME_ATTR=1, $
  1159.                                 /TLB_KILL_REQUEST_EVENTS, $
  1160.                                 MAP=0 )
  1161. endif else begin
  1162.     mainWinBase = WIDGET_BASE ( TITLE="IDL Demo",  /COLUMN, $
  1163.                                 /ALIGN_CENTER, $
  1164.                                 MBAR=mainWinMenuBase, TLB_FRAME_ATTR=1, $
  1165.                                 /TLB_KILL_REQUEST_EVENTS, $
  1166.                                 MAP=0 )
  1167. endelse
  1168.  
  1169. GetMenuDescription, MenuDescription
  1170.  
  1171. nmenus = n_elements(MenuDescription) /2 ;# of menu items.
  1172. MenuDescription = REFORM(MenuDescription, 2, nmenus, /OVERWRITE)
  1173.  
  1174. mainWinMenu = CW_PDMENU ( mainWinMenuBase, MenuDescription(0,*), $
  1175.                           /RETURN_INDEX, /MBAR, UVALUE='MAIN_PULLDOWN' )
  1176.  
  1177.  
  1178. ;  Create the base for the images and buttons.
  1179. imageBase = WIDGET_BASE(mainWinBase, XSIZE=630, YSIZE=410)
  1180.  
  1181. ;  Create the status message area.
  1182. startMainStatus = "Welcome to the IDL 5.0 Demo: Please select a topic..."
  1183. currMainStatus = startMainStatus
  1184. statusAreaBase = WIDGET_BASE ( mainWinBase, frame=3 )
  1185. statusAreaMsg = WIDGET_LABEL(statusAreaBase, VALUE=startMainStatus, $
  1186.                              /ALIGN_LEFT )
  1187. if debug then timer, 'MainWindowCreate', t0
  1188.  
  1189. ;  Do as much as possible to load the main image before ending splash screen.
  1190.  
  1191. buttonDef, buttons
  1192. if debug then timer, 'ButtonDef', t0
  1193. createButtons, imageBase, buttons
  1194. if debug then timer, 'CreateButtons', t0
  1195. newMainDraw = WIDGET_DRAW(imageBase, XSIZE=630, YSIZE=410)
  1196.  
  1197. WIDGET_CONTROL, mainWinBase, /REALIZE, MAP=0
  1198.  
  1199. WIDGET_CONTROL, newMainDraw, GET_VALUE=mainDrawID
  1200.  
  1201. WSET, mainDrawID
  1202.  
  1203.                                 ;  Take down the splash screen.
  1204.                                 ;
  1205. demoSplashEnd, startSplash, splashBase, debug
  1206. if debug then timer, 'SplashEnd', t0
  1207.  
  1208. mainWinInfo = { $               ;  Create the main state structure.
  1209.                 mainWinBase:mainWinBase, $
  1210.                 imageBase : imageBase, $
  1211.                 buttons: buttons, $
  1212.                 mainDrawID: mainDrawID, $
  1213.                 apptlb : 0L, $
  1214.                 curScreenNum: 0L, $
  1215.                 prevScreenNum: 0L, $
  1216.                 MenuActions : MenuDescription(1,*), $
  1217.                 colorTable: colorTable, $ ; Color table to restore
  1218.                 quiet: quietsave, $
  1219.                 gif_hdr: temporary(header), $
  1220.                 slow : 0, $
  1221.                 demo_name: '<Startup>', $
  1222.                 memory : memory(), $
  1223.                 debug : debug,  $
  1224.                 slow_demos : slow_demos $
  1225.               }
  1226.  
  1227.  
  1228. MenuDescription = 0             ;All done with the menu
  1229.  
  1230. showScreen, 0, mainWinInfo
  1231.  
  1232. WIDGET_CONTROL, mainWinBase, /map
  1233.  
  1234.                                 ;Is this machine slow?  Very approximate...
  1235. mainWinInfo.slow = (systime(1) - tstart ) gt 5
  1236.  
  1237.                                 ; Save state in top base uvalue
  1238. WIDGET_CONTROL, mainWinBase, SET_UVALUE=mainWinInfo, /no_copy
  1239.  
  1240.                                 ; Register program with XManager.
  1241.                                 ;
  1242. if debug then timer, 'Total Time', tstart
  1243.  
  1244. XMANAGER, "idl_demo", mainWinBase, $
  1245.   EVENT_HANDLER="idl_demo_event", $
  1246.   /NO_BLOCK, $
  1247.   CLEANUP="idl_demo_cleanup"
  1248.  
  1249. end                             ; idl_demo
  1250.  
  1251.  
  1252. ; * Main Procedure for embedded mode.
  1253. PRO MAIN
  1254. DEMO
  1255. END
  1256.